home *** CD-ROM | disk | FTP | other *** search
- object LanguageOptions: TLanguageOptions
- Left = 226
- Top = 103
- BorderStyle = bsDialog
- Caption = 'Language Formatted Copy/Paste Options'
- ClientHeight = 269
- ClientWidth = 488
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Label3: TLabel
- Left = 8
- Top = 114
- Width = 62
- Height = 13
- Caption = 'Sample SQL:'
- end
- object Bevel2: TBevel
- Left = 8
- Top = 106
- Width = 472
- Height = 9
- Shape = bsTopLine
- end
- object rgFormattingStyle: TRadioGroup
- Tag = 1
- Left = 8
- Top = 8
- Width = 128
- Height = 91
- Caption = 'Formatting Style'
- ItemIndex = 1
- Items.Strings = (
- 'Delphi'
- 'VB/VBScript (ASP)'
- 'JavaScript/C++'
- 'Custom')
- TabOrder = 0
- OnClick = rgFormattingStyleClick
- end
- object FormatOptionsGroupBox: TGroupBox
- Left = 142
- Top = 8
- Width = 338
- Height = 91
- Caption = 'Format Options'
- TabOrder = 1
- object Label1: TLabel
- Left = 23
- Top = 25
- Width = 86
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'String delimiter:'
- end
- object Label2: TLabel
- Left = 9
- Top = 48
- Width = 100
- Height = 13
- Alignment = taRightJustify
- Caption = 'String Concatination/'
- end
- object Label5: TLabel
- Left = 24
- Top = 62
- Width = 85
- Height = 13
- Alignment = taRightJustify
- Caption = 'Line Continuation:'
- end
- object eStringDelimiter: TEdit
- Tag = 1
- Left = 115
- Top = 21
- Width = 42
- Height = 21
- MaxLength = 3
- TabOrder = 0
- Text = '"'
- OnChange = FormatChange
- end
- object eLineContinuation: TEdit
- Tag = 1
- Left = 115
- Top = 51
- Width = 59
- Height = 21
- MaxLength = 20
- TabOrder = 1
- Text = ' & _'
- OnChange = FormatChange
- end
- object cbDoubleStringDelimiter: TCheckBox
- Tag = 1
- Left = 171
- Top = 23
- Width = 138
- Height = 17
- Caption = 'Double StringDelimiter'
- Checked = True
- State = cbChecked
- TabOrder = 2
- OnClick = FormatChange
- end
- end
- object mSample: TMemo
- Left = 8
- Top = 129
- Width = 471
- Height = 97
- Lines.Strings = (
- 'select '
- #9'ename "Name", sal "Salary" '
- 'from emp '
- 'where ename = '#39'FORD'#39)
- TabOrder = 2
- WordWrap = False
- end
- object btnCopy: TRzButton
- Left = 10
- Top = 236
- Default = True
- Caption = 'OK'
- HotTrack = True
- TabOrder = 3
- OnClick = btnCopyClick
- end
- object btnCancel: TRzButton
- Left = 95
- Top = 236
- ModalResult = 2
- Caption = 'Cancel'
- HotTrack = True
- TabOrder = 4
- end
- end
-